VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{65E121D4-0C60-11D2-A9FC-0000F8754DA1}#2.0#0"; "mschrt20.ocx"
Begin VB.Form frmToolChart 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "CDS"
   ClientHeight    =   9420
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   12540
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   9420
   ScaleWidth      =   12540
   Begin VB.Frame Frame2 
      Height          =   3390
      Left            =   7995
      TabIndex        =   13
      Top             =   5985
      Width           =   3105
   End
   Begin VB.Frame Frame1 
      Height          =   3405
      Left            =   60
      TabIndex        =   12
      Top             =   5985
      Width           =   7860
   End
   Begin VB.PictureBox Picture1 
      BackColor       =   &H80000005&
      Height          =   5955
      Left            =   15
      ScaleHeight     =   5895
      ScaleWidth      =   12420
      TabIndex        =   1
      Top             =   15
      Width           =   12480
      Begin VB.CommandButton cmdch 
         BackColor       =   &H00FFFFFF&
         Caption         =   "3D step"
         BeginProperty Font 
            Name            =   "Arial Narrow"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Index           =   5
         Left            =   10470
         Style           =   1  'Graphical
         TabIndex        =   8
         ToolTipText     =   "Three dimensional Step Chart"
         Top             =   5310
         Width           =   1335
      End
      Begin VB.CommandButton cmdch 
         BackColor       =   &H00FFFFFF&
         Caption         =   "2D Pie"
         BeginProperty Font 
            Name            =   "Arial Narrow"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Index           =   2
         Left            =   10470
         Style           =   1  'Graphical
         TabIndex        =   11
         ToolTipText     =   "Two dimensional Pie Chart"
         Top             =   4950
         Width           =   1335
      End
      Begin VB.CommandButton cmdch 
         BackColor       =   &H00E0E0E0&
         Caption         =   "3D Line"
         BeginProperty Font 
            Name            =   "Arial Narrow"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Index           =   4
         Left            =   9135
         Style           =   1  'Graphical
         TabIndex        =   7
         ToolTipText     =   "Three dimensional Line Chart"
         Top             =   5310
         Width           =   1355
      End
      Begin VB.CommandButton cmdch 
         BackColor       =   &H00E0E0E0&
         Caption         =   "2D Line"
         BeginProperty Font 
            Name            =   "Arial Narrow"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Index           =   3
         Left            =   9135
         Style           =   1  'Graphical
         TabIndex        =   10
         ToolTipText     =   "Two dimensional Line Chart"
         Top             =   4950
         Width           =   1355
      End
      Begin VB.CommandButton cmdch 
         BackColor       =   &H00C0C0C0&
         Caption         =   "3D Bar"
         BeginProperty Font 
            Name            =   "Arial Narrow"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Index           =   1
         Left            =   7800
         Style           =   1  'Graphical
         TabIndex        =   6
         ToolTipText     =   "Three dimensional Bar Chart"
         Top             =   5310
         Width           =   1355
      End
      Begin MSChart20Lib.MSChart MSChart1 
         Height          =   4155
         Left            =   510
         OleObjectBlob   =   "frmToolChart.frx":0000
         TabIndex        =   2
         Top             =   1440
         Width           =   6570
      End
      Begin MSComctlLib.ListView ListView1 
         Height          =   2250
         Left            =   7470
         TabIndex        =   3
         Top             =   1440
         Width           =   4605
         _ExtentX        =   8123
         _ExtentY        =   3969
         View            =   3
         LabelWrap       =   -1  'True
         HideSelection   =   -1  'True
         Checkboxes      =   -1  'True
         GridLines       =   -1  'True
         _Version        =   393217
         ForeColor       =   -2147483640
         BackColor       =   -2147483643
         BorderStyle     =   1
         Appearance      =   0
         NumItems        =   0
      End
      Begin VB.CommandButton cmdch 
         BackColor       =   &H00C0C0C0&
         Caption         =   "2D Bar"
         BeginProperty Font 
            Name            =   "Arial Narrow"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Index           =   0
         Left            =   7800
         Style           =   1  'Graphical
         TabIndex        =   9
         ToolTipText     =   "Two dimensional Bar Chart"
         Top             =   4950
         Width           =   1355
      End
      Begin VB.Label Label2 
         Alignment       =   2  'Center
         BackColor       =   &H80000005&
         Caption         =   "Report Title"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   435
         Left            =   3375
         TabIndex        =   5
         Top             =   510
         Width           =   5640
      End
      Begin VB.Label Label1 
         Alignment       =   2  'Center
         BackColor       =   &H80000005&
         Caption         =   "ComUnion Decision Support"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   18
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   435
         Left            =   3375
         TabIndex        =   4
         Top             =   75
         Width           =   5640
      End
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "E&xit"
      Height          =   615
      Left            =   11445
      Picture         =   "frmToolChart.frx":27DF
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   8625
      Width           =   750
   End
End
Attribute VB_Name = "frmToolChart"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'IT Group Inc. 2005.09.23

Option Explicit


Private connList As ADODB.Connection

'Object variables


'Other declaration
Public sBit As String

Private Sub cmdExit_Click()
   Unload Me
End Sub

Private Sub Form_Load()
    If frmModuleExplorer.Visible = True Then
        Left = 2670
        Top = 0
    End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
    BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, , , , , , , , , , True
    BitVisible ITGLedgerMain.tbrMain
    ITGLedgerMain.tbrMain.Buttons("btnFind").ButtonMenus("btnFindP").Enabled = False
 
    Me.Tag = "Close"
    Set frmToolChart = Nothing
    
    lCloseWindow = True
    
'    'oForm(Me.Tag).Mode = 1
'    'oForm(Me.Tag).Tag = Me.Tag
End Sub

'Activate your Toolbar Mode
Private Sub Form_Activate()
    TBBitReload
End Sub

Public Sub TBCloseWindow()
    Unload Me
End Sub

'Reload menu buttons (do not delete this sub)
Public Sub TBBitReload()
    BitVisible ITGLedgerMain.tbrMain, True, True
    ITGLedgerMain.tbrMain.Buttons("btnFind").ButtonMenus("btnFindP").Enabled = True
    BitReload ITGLedgerMain, Me, ITGLedgerMain.tbrMain, sBit
    Set FrmName = Me
End Sub

Private Sub cmdch_Click(Index As Integer)
  MSChart1.ShowLegend = True
  Select Case Index
    Case 0
      MSChart1.chartType = VtChChartType2dBar
    Case 1
      MSChart1.chartType = VtChChartType3dBar
    Case 2
      MSChart1.chartType = VtChChartType2dPie
    Case 3
      MSChart1.chartType = VtChChartType2dLine
    Case 4
      MSChart1.chartType = VtChChartType3dLine
    Case 5
      MSChart1.chartType = VtChChartType3dStep
  End Select
End Sub
